unit fFindKOEKForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
  cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxControls, cxGridCustomView, ExtCtrls, cxClasses,
  cxGridLevel, cxGrid, StdCtrls, Buttons;

type
  TfFindKOEK = class(TForm)
    KOEKcxGridLevel1: TcxGridLevel;
    KOEKcxGrid: TcxGrid;
    Panel1: TPanel;
    KOEKcxGridDBTableView1: TcxGridDBTableView;
    cxgrdbclmnKOEKcxGridDBTableView1NAME: TcxGridDBColumn;
    btnOk: TBitBtn;
    btnCancel: TBitBtn;
    procedure KOEKcxGridDBTableView1CellDblClick(Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fFindKOEK: TfFindKOEK;

implementation

uses DataModule;

{$R *.dfm}

procedure TfFindKOEK.KOEKcxGridDBTableView1CellDblClick(
  Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo;
  AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
  Self.ModalResult:=mrOk;
end;

end.
